Line Multiplication

multiplier=Input["Enter the Multiplier"];
multiplicant=Input["Enter the Multiplicant"];
Graphics[Plot[{{20Reverse@Range[IntegerLength[multiplier]]+2Range[IntegerDigits[multiplier]]+x},{20Range[IntegerLength[multiplicant]]+90+2Range[IntegerDigits[multiplicant]]-x}},{x,0,100}],outertimes=Reverse[Outer[Times,IntegerDigits[multiplier],IntegerDigits[multiplicant]]]]
multiplier"=Multiplier"
multiplicant"=Multiplicant"
multiplier  multiplicant"=Product using the Tradition Method"
Print["A Grid of Intersection Numbers"]
outertimes table form=outertimes//TableForm
Print["Product Obtain From Intersections"]
Inner[Times,Total[Diagonal[outertimes,#]]&/@Range[-(IntegerLength[multiplier]-1),(IntegerLength[multiplicant]-1)],10^#&/@Reverse[Range[0,(IntegerLength[multiplier]-1+IntegerLength[multiplicant]-1)]]]